home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / TCPAccept.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  519 b   |  22 lines
  1. ;SERVER!! Start Me First !!!!!!!!!!!!!!!
  2. $g_IP = "127.0.0.1"
  3.  
  4. ; Start The TCP Services
  5. ;==============================================
  6. TCPStartUp()
  7.  
  8. ; Create a Listening "SOCKET"
  9. ;==============================================
  10. $MainSocket = TCPListen($g_IP, 65432,  100 )
  11. If $MainSocket = -1 Then Exit
  12.  
  13. ;  look for client connection
  14. ;--------------------
  15. While 1
  16. $ConnectedSocket = TCPAccept( $MainSocket)
  17. If $ConnectedSocket >= 0 Then
  18.     msgbox(0,"","my server - Client Connected")
  19.     exit
  20. EndIf
  21. Wend
  22.